home *** CD-ROM | disk | FTP | other *** search
/ Internet Info 1994 March / Internet Info CD-ROM (Walnut Creek) (March 1994).iso / networking / mail / mh / contrib / 9302 / prunemail.shar / prunemail next >
Text File  |  1993-02-03  |  928b  |  27 lines
  1. #! /bin/csh -f
  2. # eliminate all messages in $1 with duplicate message-ids
  3. #
  4. # Subject: MH utility to delete duplicate messages in a folder
  5. # Date: Wed, 19 Aug 92 11:48:45 -0400
  6. # From: Bob Munck <munck@Stars.Reston.Unisys.COM>
  7. # 
  8. # Fixed to delete only messages with message-ids.
  9. # Roger Corron  <rc@boston.sgi.com>
  10. #
  11. # I debated using "$1" everywhere I have "+$1", since the user
  12. # would then need the "+" and would be following MH conventions
  13. # more closely.  I suppose a real convention-following utility
  14. # would also allow defaulting by using Path from ~/.mh-profile
  15. # to find context and getting Current-Folder from it.  
  16.  
  17. if ( ( $#argv == 0 ) || ( $1 == -help ) || ( $1 == -h ) ) then
  18.    echo 'USAGE: prune-mail folder'
  19.    exit 0
  20.    endif
  21. folder +$1
  22. set s =  `scan +$1 -format "%4(putnumf(msg))    %{message-id}"|grep '.*<.*>.*' | sort +1|uniq -d +5|sed 's/    .*$//'`
  23. if ( "$s" != "" ) then
  24.    rmm $s +$1
  25.    folder +$1
  26.    endif
  27.